home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / amag / AM9404_2.lha / skripts / skript_3 < prev    next >
Text File  |  1994-02-18  |  998b  |  42 lines
  1. . Das Shell muß mit einem Verzeichnisnamen aufgerufen
  2. . werden. Existiert es, wird das Inhaltsverzeichnis
  3. . ausgelesen, in eine temporäre Datei umgeleitet
  4. . und mit dem Textanzeiger MORE ausgegeben.
  5.  
  6. .BRA {
  7. .KET }
  8. .KEY Verzeichnis/A
  9.  
  10. IF EXISTS {Verzeichnis}
  11.   ; aktuelles Verzeichnis sichern
  12.   CD >ENV:temp{$$}
  13.  
  14.   ; Ins neue Verzeichnis wechseln
  15.   CD {Verzeichnis}
  16.  
  17.   ; Überschrift in die temporäre Datei einfügen
  18.   ECHO >env:Liste{$$} "Inhaltsverzeichnis" NOLINE
  19.   ECHO >>env:Liste{$$} " von {Verzeichnis}*N"
  20.  
  21.   ; Das Inhaltverzeichnis in eine Datei umleiten. Da
  22.   ; sie schon existiert, muß das Zeichen >> benutzt
  23.   ; werden. Es legt keine neue Datei an, sondern
  24.   ; fügt lediglich Informationen an
  25.   LIST >>env:Liste{$$}
  26.  
  27.   ; und anzeigen
  28.   sys:utilities/more env:Liste{$$}
  29.  
  30.   ; Wieder ins ursprüngliche Verzeichnis zurück
  31.   CD $temp{$$}
  32.  
  33.   ; Temporäre Variablen löschen
  34.   UNSETENV temp{$$}
  35.   UNSETENV Liste{$$}
  36. ELSE
  37.   ECHO "Das Verzeichnis {Verzeichnis} existiert nicht"
  38.   QUIT 5
  39. ENDIF
  40.  
  41. QUIT 0
  42.